From: Jim Blandy <jimb@redhat.com>
Date: Tue, 22 Jun 1993 07:39:26 +0000 (+0000)
Subject: * buffer.c (list_buffers_1): Make desired_point a lisp object; set
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95176
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=718cde7d8ee9ae85f61f11654a9df44ba628a332;p=emacs.git

* buffer.c (list_buffers_1): Make desired_point a lisp object; set
	it to nil, unless we find the current buffer.
	(Flist_buffers): Don't try to set point in the buffer list unless
	list_buffers_1 actually returns an integer.  Don't use a full
	save_excursion; just save and restore the buffer.
---

diff --git a/src/buffer.c b/src/buffer.c
index d1680961e3b..403d1ef22b0 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1035,9 +1035,10 @@ list_buffers_1 (files)
   register Lisp_Object tail, tem, buf;
   Lisp_Object col1, col2, col3, minspace;
   register struct buffer *old = current_buffer, *b;
-  int desired_point = 0;
+  Lisp_Object desired_point;
   Lisp_Object other_file_symbol;
 
+  desired_point = Qnil;
   other_file_symbol = intern ("list-buffers-directory");
 
   XFASTINT (col1) = 19;
@@ -1070,7 +1071,7 @@ list_buffers_1 (files)
 	continue;
       /* Identify the current buffer. */
       if (b == old)
-	desired_point = point;
+	XFASTINT (desired_point) = point;
       write_string (b == old ? "." : " ", -1);
       /* Identify modified buffers */
       write_string (BUF_MODIFF (b) > b->save_modified ? "*" : " ", -1);
@@ -1106,7 +1107,7 @@ list_buffers_1 (files)
 
   current_buffer->read_only = Qt;
   set_buffer_internal (old);
-  return make_number (desired_point);
+  return desired_point;
 }
 
 DEFUN ("list-buffers", Flist_buffers, Slist_buffers, 0, 1, "P",
@@ -1120,18 +1121,20 @@ The R column contains a % for buffers that are read-only.")
   (files)
      Lisp_Object files;
 {
-  int count = specpdl_ptr - specpdl;
   Lisp_Object desired_point;
 
   desired_point =
     internal_with_output_to_temp_buffer ("*Buffer List*",
 					 list_buffers_1, files);
 
-  record_unwind_protect (save_excursion_restore, save_excursion_save ());
-  Fset_buffer (build_string ("*Buffer List*"));
-  SET_PT (XINT (desired_point));
-  
-  return unbind_to (count, Qnil);
+  if (NUMBERP (desired_point))
+    {
+      int count = specpdl_ptr - specpdl;
+      record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
+      Fset_buffer (build_string ("*Buffer List*"));
+      SET_PT (XINT (desired_point));
+      return unbind_to (count, Qnil);
+    }
 }
 
 DEFUN ("kill-all-local-variables", Fkill_all_local_variables, Skill_all_local_variables,